home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / misc / dont_v11.lha / dont.s < prev    next >
Encoding:
Text File  |  1995-01-09  |  1.2 KB  |  67 lines
  1.     incdir INCLUDE:
  2.     include "LVO3.0/exec_lib.i"
  3.     include "LVO3.0/dos_lib.i"
  4.  
  5. ;    Don't
  6. ;
  7. ;    Ask your amiga to do nothing and it will really do nothing!!!
  8. ;
  9. ;    Please note that this piece of code is SEXware®; that means:
  10. ;    if you use this pile of c..p, please e-mail your nicest sister
  11. ;    at rekststef@unisi.it
  12. ;    Bug reports and donations welcome.      ;-)
  13. ;
  14. ;    History:    Mar 22, 1992: This was written in C !!!
  15. ;
  16. ;            Dec 10, 1994: After a complete debugging, this
  17. ;            program is now rewritten in Assembly to gain speed.
  18. ;            So it can do nothing even faster!!!
  19. ;
  20. ;   Credits: this was inspired by another program called Don't, of which
  21. ;   unfortunately I can't remember the author... :-(
  22.  
  23.     movem.l    a0/d0,-(sp)
  24.     move.l    $4,a6
  25.     lea    dosname,a1
  26.     move.l    #0,d0
  27.     jsr    _LVOOpenLibrary(a6)
  28.     tst    d0
  29.     beq.b    .panic
  30.     move.l    d0,a2
  31.  
  32.     move.l    d0,a6
  33.     jsr    _LVOOutput(a6)
  34.     tst    d0
  35.     beq.b    .error
  36.     move.l    d0,d4
  37.  
  38.     move.l    d4,d1
  39.     move.l    #okiwont,d2
  40.     move.l    #12,d3
  41.     jsr    _LVOWrite(a6)
  42.  
  43.     move.l    d4,d1
  44.     move.l    (sp)+,d3
  45.     move.l    (sp)+,d2
  46.     jsr    _LVOWrite(a6)
  47.  
  48.     move.l    a2,a1
  49.     move.l    $4,a6
  50.     jsr    _LVOCloseLibrary(a6)
  51.     moveq    #0,d0
  52.     rts
  53.  
  54. .error
  55.     addq    #8,sp
  56.     moveq    #5,d0
  57.     rts
  58. .panic
  59.     addq    #8,sp
  60.     moveq    #20,d0
  61.     rts
  62.  
  63. dosname:
  64.     dc.b    "dos.library",0
  65. okiwont
  66.     dc.b    "OK, I won't "
  67.